home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / addquo.lha / addquotes next >
Text File  |  1994-05-27  |  2KB  |  113 lines
  1. /**/
  2.  
  3. signal on ERROR
  4. parse arg LineNumber
  5.  
  6. DoorName = "sigarexx"
  7.  
  8. if( ~show( 'l', "mebbsarexx.library" ) )then do
  9.    say "Opening mebbsarexx.library"
  10.     if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  11.       say "Could not open library"
  12.       exit 10
  13.    end
  14. end
  15.  
  16. call GetVar DoorName,LineNumber,1
  17. username=result
  18. call GetVar DoorName,LineNumber,4
  19. city=result
  20. call GetVar DoorName,LineNumber,8
  21. gfx=result
  22. call GetVar DoorName,LineNumber,11
  23. calls=result
  24. call GetVar DoorName,LineNumber,12
  25. uploads=result
  26. call GetVar DoorName,LineNumber,13
  27. downloads=result
  28. call GetVar DoorName,LineNumber,15
  29. path=result
  30. call GetVar DoorName,LineNumber,18
  31. total_calls=result
  32. call GetVar DoorName,LineNumber,17
  33. all_calls=result
  34. call GetVar DoorName,LineNumber,20
  35. level=result
  36.  
  37. username=upper(username)
  38. rname=space(username,1,'_')
  39.  
  40. ac=result
  41. f =0
  42. mainpath='T:'
  43. a=0
  44.  
  45. lng=length(total_calls)
  46.  
  47. CLS = 'H'
  48. RED    =''
  49. GRN    =''
  50. GREEN    =''
  51. YEL    =''
  52. BLU    =''
  53. VIO    =''
  54. WHT    =''
  55. BLA2   =''
  56. RED2   =''
  57. GRN2   =''
  58. YEL2   =''
  59. BLU2   =''
  60. RESET  =''
  61. CYAN   =''
  62. BLUEY  =''
  63. RESET  =''
  64.  
  65.  
  66. ADDQUOTES:
  67. call ReadFile DoorName,LineNumber,"DOORS:ADDQUOTES/ADDQUOTES.GR2"
  68. call Message DoorName,LineNumber,"",1
  69. call Message DoorName,LineNumber,"",1
  70. call Message DoorName,LineNumber,yel||"Your Quote, Joke (whatever) will be automatically and randomnly",1
  71. call Message DoorName,LineNumber,yel||"displayed publicly around the System. IE: On logout...",1
  72. call Message DoorName,LineNumber,"",1
  73.  
  74. call Message DoorName,LineNumber,cyan||"Please enter your text on two lines below",1
  75. call Prompt DoorName,LineNumber,">",70
  76. quote1=result
  77. call Prompt DoorName,LineNumber,">",70
  78. quote2=result
  79. quote3=""
  80. write=" scribbles sensually:"
  81. wpath="mebbsnet:quotes.bbs"
  82. call Message DoorName,LineNumber,"",1
  83. call Message DoorName,LineNumber,"Thankyou.  Do you want this saving (Y/N)?",1
  84. call HotKey DoorName,LineNumber,""
  85. saveit=UPPER(result)
  86. if saveit ~= 'Y' then call end_it
  87.  
  88. call open quote,(wpath), 'A'
  89. call writeln quote,username||write
  90. call writeln quote,quote1
  91. call writeln quote,quote2
  92. call writeln quote,quote3
  93. call close quote
  94.  
  95. call Message DoorName,LineNumber,cls||cyan||"Your quote has been added to the file for all to see",1
  96.  
  97.  
  98.  
  99. call end_it
  100.  
  101.  
  102. IOERR:
  103. call Exit_Door DoorName,LineNumber
  104. exit 10
  105.  
  106. ERROR:
  107. call Exit_Door DoorName,LineNumber
  108. exit 10
  109.  
  110. end_it:
  111. call Exit_Door DoorName,LineNumber
  112. exit 0
  113.